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CORTEX USER GROUP 
NEWS LETTER IT | FEBRUARY 1985 


‘Firstly, an apology! 


We had every intention of releasing this, our’ sécond Néws Letter, 
just before Christmas. Alright! so we don't have any.excuses but, 
what with the demand for CORTEXES and the flood of reader' 3 letters, 
it has taken us this long to ‘reach publication. Hope * ‘you think it's 
worth waiting’ ‘for! 


We intend to become more active ‘over our contacts with our users and 
are aiming to produce a regular, quarterly News Letter from now on. © 
Probably the most important part of this ‘publication © ‘is the 
contributions we réceive from you, the user. Please keep your 
programmes, queries, new eee and criticisms coming” ‘in. We need 
them - for you. | 


You will note this News Letter is y eenewiesabiy larger than our first 
‘and, because of the extra work involved in producing four’ issues “per 
year, we will have‘To~ct arge a nominal annual sum for you “to pecoine: 
_ registered with the User Group. i will be £5 p.a. which will just 
about cover our admin. costs. oa re ee te 


We: learn -. finally! - that Texas have now discontinued the 9909. (the 
floppy disc controller chip). As an alternative, they are offering: a 
new plug-in: module and this is due now. Naturally, we shall ‘charge 
no extra for this module to those of you who have been Waiting for 
delivery of your CORTEX. We look forward to clearing aii outstanding 
“orders as soon as Texas cera ee to us. | aad 


Secondly the advertisements: 7 

cDos is available, on single. or double-density disc: ~You'll ‘Pind it 
well worth the £43 + VAT (no postage). Please state whether pos is 
required on. 40 track or 80 track; single-sided or. double-sided disc. 
You may have seen the review of CORTEX II in the Decembér ‘copy. of 
PCN. For those that missed it, we attach a copy of* the “article. 
Reviews being what they are, it’ S) aeteey, complementary anouy ust — 


Fora while, the price of CORTEX II is being held at £299 ie VAT. We 
cannot keep this forever, so get your friends to send th their orders 
pretty quick! 


GAMES COMPETITION 


We had a g66a response to our dompatition and they were generally of 
a very high quality. This made judging them very difficult! The | 
names of the hard-working contributors is listed below, together with 
the prizes they will receive. 


_ FIRST PRIZE goes to Robert Lee, of Eastbourne 


who wrote MAZE. He will be receiving £20. 
SECOND PRIZE goes to Gary Alexander, of BRISTOL 


who wrote G Design. He will be receiving £10." 


If we had a third prize, I think it would have gone to Mr R Green, of 


Rotherham who sent us WINE and FORM 1. Their use by our readers 
might be limited but the programmes deserve a recommendation for 
both interest and originality. . | 


aan 


We are thinking of having another. competition later in the year but 


the subject is being kept secret for now. — 


Partly as a result of the Competition and also from.your many 
letters, we have a good variety of GAMES for you to buy. These are 
on sale at £6. + VAT each, with a £1.50 royalty sent to the originator 


: | on each one. "They are | described, braesly. in the paragraphs below. 


We can ‘reach a wide readership with this News Letter and. ui Manage 
all. the overheads, eg. paperwork, tape. copying, pace Keep your games 
rolling in and lets see how they sell! 


co Some of the tepee © you send us will not Gene - or only with 


difficulty. Do ‘try to check them before sending ** Thanks. => 


‘Wine | “Tdeal for the nome technical winemaker. This prog. asks what 


you want to make - table/desert, colour, quantity, etc. and when 
you've filled in the answers, including the type of fruit, it tells 
you. just what correcting additions you need, ie ie a , ‘malic acid 
and so on. | | : 


| Form 1 This goes with WINE. and prints out a standard form for your 


records - you'll be surprised how many notes you accumulate over the 
years and this will help. 


Burglar The object of the game is to manoeuvre a little man around 
the screen - avoiding obstacles, jumping off ledges, missing 
poisonous bushes, etc., etc. This is in order to collect five keys, 


which will give you access to the next screen. There are plenty of 


screens (I lost count!) - each getting more difficult. _ The graphics 


are very good and the keys are fast and easy to use. 


Muncher Another variation of ‘PACMAN ! The graphics are good but I 
found the keys a little awkward to find quickly enough and never 
managed a full screen. It is a little annoying to keep. preeere the 
keys in order to move continuously. 


G Design This enables characters and shapes to be designed on the 


screen. The computer then generates the correct numbers to form the 


character or shape. It also works in reverse, giving you the 
character for the numbers entered. A very useful tool for graphics 
generation. : | 


3D Graph _ ‘This will draw 3 D graphs of functions already entered and 
should be able to draw a user function as well. Unrorcunerety I was 
unable to get it up acces any of my functions! , 


Cortello. A screen version of ene board ‘game OTHELLO and it is 
excellent if you have no one else to play with. I found it easy to 
beat the. lower two. levels but ran out of time to. cae my luck 
further. 

, SoG ; , a ae . 
Night Attack The screen presents the New York skyline, with the 
Empire State. building in the centre and. the statue of Liberty in the 
centre foreground.. The city. is under attack by a spacecraft, which 
drops bombs onto the skyscrapers - causing visible damage. Liberty's 
torch can be pointed towards the spacecraft and/or. the. bombs and each 
success is rewarded by marks - most marks, naturally, for destroying 


the spacecraft. You're in trouble if a bomb hits the peauue: 


Wall This was a little tame scupaeea with some of tT eaae s arcade 
games. Even so, it is always.a challenge to beat the computer - 
which I didn't! The object is to bomb a wall down, where your ° 
aircraft flies back and forth across the wall - losing both. eee 


and time. You must demolish the wall before you hit it. 


Maze This game apealed to me! The computer generates a maze at one 
of five levels of difficulty. You are placed in the middle of the 
maze and are given a 3 D view from where you stand. The ain. is to 
find a food chest but to try to visualise the maze, by looking 
forward, right & left and behind you is mind blowing and.a great 
challenge. Very enjoyable. 


NOTE. A minor hiccup with this issue. 


You will find a lot of '%'s in some of the listings. These should, 


of course, be '@'! 


Your Own Pages . 


The following letters and programs have been sent in by CORTEX Users. 
Powertran Cybernetics Limited cannot accept liability for their 
contents. : : 


Graham Thirsk 
Pertenhall Beds 


Remember Robert Lee's ‘Terminal Emulator programme, published in _ News 
Letter 1? Well, Graham's been doing some work on it and we offer his | 
pommnenees , 


TERMINAL EMULATOR PROGRAM EXTENSION 


The program below allows full control of. the RS 232 port or Cassette 
port for the Terminal Emulator presented by R M Lee. | | 


XXX LIMI 0 disable all interupts 


Li R12, > 080 | 3 ! set CRU address RS232 
a, (0180 for cassette) 
SBO 31 ! Reset UART — 
SWPB RO select correct byte | 
LDCR RO,8 | - Load control register. 
- SBZ 13 , --——sTgnore Interval register 
*LDCR R1,11 _ s Load receive data rate 
**LDCR R2,12 Load Xmit data rate 
YYY EXULATOR PROGRAM CONTINUES 


The process should be repeated using CRU address 0180H and R3, R4, R5 
for the parameters if cassette port requires modification. : 


Omitting line * and making line ** LDCR R1, 12 makes the baud rate 
for Xmit and receive the same i.e. Ri. 


The routine for RS 232 is called fe: 
Call XXX, control data, RCV rate, Xmit rate. 


Obviously these parameters may be included in the MC program so it 
may be Auto Run after loading. 


CONTROL VALUES 

a) BIT COUNT 

7 bits = 02H 
8 bits = 03H 


PARITY. Add Values to those selected for Bit Count 
b) No PARITY 010H 

Even " O20H 

Odd = — 030H 


STOP BITS Add to values selected 
c) 11/2 STOP OH 
2 STOP 040H 
1 STOP O80H 
eg. 8 bits No parity 2 stop bits = 063H 
BAUD RATE - parameters given by 


DR (division ratio) = 500,000/Baud rate required 
if DR > O3FFH then DR = DR/8 + 400H 


e.g. 1200 BAUD = 1A1H 
300 BAUD = 4DOH 
75 BAUD = 741H 


The parameters preset by CORTEX BASIC for the cassette Port (SAVE + 
LOAD) may be modified in the same way. 


MEM (OIC8H) sontains the control data for the cassette 
(14BYTE) (043H) 


MWD (18B2H) contains the Division Ratio for the cassette 


MEM (5546H) contains the control data for the RS 232 
(1BYTE) (062H) 


BAUD RATES for Devices set by UNIT are best set by the BAUD command : 


Helge A Larsen | 
NORWAY 


Helge has sent us a short assembly routine for use aiepoeda type 


games. She apologises for her English (which is a lot better than my 
Norwegian! ) | 


"I have tried to write some games for my children and found that 
using the KEY-function to manoeuver an object across the screen is 
not a good idea. You have to push the Repeat button to get a 
continuous movement whilst you are pushing the buttons and when you 
then. release the button, the movements continues. To overcome this I 
have written a short assembly programme but the problem is not fully 
solved. Because by reading the values from the keyboard you will 
have a lot of random numbers while the keys are not operated. I 
don't think this is a great problem in games and could even be 
useful. | : 


"Maybe some people are annoyed at bringing up games in this group but 
I find that the computer is very valuable as joy also and more 
serious users may also find useful hints in this programme. As can 
be seen from the printout, the programme is thought to be used with a 
CALL and two parameters , the adr. of x and y. First RO and R1 are 
incremented and saved. They are used in the routine at 15FAH. This 
routine also uses R2. The values from the keyboard are then read 

‘into RO and 14 FAH then makes branches depending on the value in RO. 


"On the addresses from 6018H we have a table with the displacement to 
jump in high order byte and the value of the arrow keys in low order 
‘byte. Please note that the table has to be finished with 0. To 
calculate the address to be jumped to use the formula ‘next 
adr+2*disp.' 


An example: 


The left arrow is pushed. This key has the value 8. You find it at 


6018H. | 
The displacement is 6 and the jump is to 6024H. 


"In this program I have used the four cursor keys but a fire button 
may easy be included in the table. Of course new a a have 
to be eareuraren and a suitable routine written." 


UNIT-2 

MON . 
Monitor Rev. 1.1 1982 

[ lu 6000 6032 


6000 05CO INCT RO 
6002 05C1 INCT R1 
6004 C140 MOV RO, R5 


6006 C101 MOV R1,R4 

6008 020C L1 R12,>0010 
600C 3400 STCR RO, O 
600E 0240 ANDI RO, >OOFF 
6012 OA80 SLA RO, 8 

6014 O6A0 BL @15FA 

6018 0608 DEC R8 


~ 601A 0809 SRA R9,0 


601C OAOB SLA R11,0 
601E OCOA DATA >OCOA 
6020 0000 DATA >0000 
6022 0380 RIWP 


6024 0615 DEC *R5 


6026 1001 JMP >602A 
6028 0595 INC *R5 
602A 0380 RTWP 

602C 0614 DEC *R4 
602EB 1001 JMP >6032 
6030 0594 INC *R4 
6032 0380 RIWP - 


CORTEX BASIC Rev. 1.1 1982 
*Ready — 

UNIT -2 

LIST 


10 X=128: Y=96 

20 CALL O600H, ADR(X), abacr) 
30 IF X>255 THEN 255 

4Q0 IF X<O THEN X 
50 IF Y<O THEN Y 
60 IF Y¥>191 THEN 
70 PLOT X,Y 

80 GOTO 20 


ll bd 
toon 


KK 


191 


J H Taylor . 
Co. Down 


JH has sent us a listing for a BASIC sprite designing progran. 


it. 
To use a sprite at line 50 ... 
50 SPRITE No, X »Y, Shape no, colour 
where No is O to 41 , using lower numbers firs 


X is 0 to 255, Y is 0 to 191, origin top LH cc 
colour is 1 to 15. 


oe 
ve 
rn 
rn 


er. 


A shape must be defined first and it is 
20 SHAPE No, ist,2nd,3rd,4th 


Try 


where ist to 4th are 16 bit binary numbers showing whether a 


pixel (picture element) is "on" (1), or "off" (0). 


Luckily these binary numbers are expressed in Hexececime: Fs better 
still in Decimal (as used here). a : 


The program presents a square frame for 8x8 pixels with an X in one 


corner. Draw the shape in X's by moving them with the up,. down, 


left, right, arrow keys. If you want a blank, type the space bar and 
move to the next space. You can go over it again and again until it 
is right, then type Q for Quit and it takes a moment to work out the 
four numbers. Copy them down, with a sketch of the shape and, if you 
want more, tere and RUN. 


Now you press the button at ens Sagi to wipe fous ‘that lovely program 
and write one to use the shapes. If you get something interesting 
Beene let us all know. 7 Ete 3 : 


10 %K"CSDER": "THIS PROGRAM PREPARES SHAPE NUMBERS": 
20 ?%"2D10R"3;"DO YOU NEED INSTRUCTIONS? (Y/N)" 

25 INPUT, $A 

30: IF $a="y" THEN GOTO 60 | 
40 IF $A<>"N" THEN PRINT "Y OR N PLEASE" © sGOTO 20 
50 GOTO 120 

60 REM INSTRUCTIONS — 

70 ?"The 8x8 pixel shape is put in a frame" 

75 ?"an X is in the top corner" 

80 ?"Move the X using the arrow keys" 

85 ?"For a blank hit the space bar and move" 

90 ?"When the shape is complete" 

95 ?"type Q for Quit and the" 

100 ?"four shape numbers will be printed" 

110 ?"ANY KEY TO CONTINUE" 

115 K=KEY (0) | 

116 IF K=O THEN GOTO 115 

120 REM DRAW FRAME 


125 P%"C" 
130 FOR H = 336 TO 345:SPUT H,45:NEXT H 
140 FOR J = 696° T0 705:SPUT J,45:NEXT J. 
150 FOR V = 376 TO 656 STEP 40: SPUT V,73:NEXT V 


160 FOR W = 385 TO 665 STEP 40: SPUT W,. 73:NEXT W 
190 REM USE KEYS TO DRAW SHAPE IN FRAME 

200 X =.377 :SPUT X,88 

210 K = KEY (0) 


220 IF K = O THEN GOTO 210 7 

225 IF K =,81 THEN GOTO 300 ! QUIT 

230 IF K = 32 THEN GOTO 290 ! space 

240 IF K = 11 THEN X = X-40:GOTO 280 | 
250 IF K = 10 THEN X = X + 40 ":GOTO 280 - 
260 IF K = 8 THEN X = X -1° :GOTO 280 : 
270: IF K = 9 THEN X = X +1 :GOTO 280 


280 SPUT X,88 :GOTO 210 a ag 

290 SPUT X,32 "GOTO 210 ! space 
300 REM CALCULATE THE NUMBERS NEXT 
400 DIM P(15), Q(15), Eve) M15 
410 DIM A(7), B(T), N(15). 

420 Pate , 

430 X1 = 424 : = 384 

440 GOSUB ans 

450 P = N2 

460 X1 = 504 : X2 = 464 

A470 GOSUB 1000 


oe 
\ 


y: 


480 Q = 


490 Xt aa ey 


500 GOSUB 1000 
Oe a 20, 32 ar 
520 X1 = 664 : X2 = 624 a 


‘530 GOSUB 1000. 
‘540 S = N2° Ms 
550 TAB See 1? a 7 
560 ‘Remember > than 32767 is negative!® = ts 


if I want to suppress une annoyane: printing | of STOP Ar ee 
- J°add’a -line ... 5” 

570 GOTO..570! ‘requires ‘Becape to. ese out. 

(Credit to M. Stevenson) | 


900 REM SUBROUTINE TO CALCULATE 
910 REM DECIMAL FROM 16 BITS — 
1000 FOR Y = 0 10 7 
1010 SGET (x1-Y), A(Y) 
1020 IF A (Y) = 88 THEN N(Y) = 1 
1030 ELSE N(Y) = | | i 
1040 NEXT Y : foe My f 
1050 FOR Z = 0 10 7 Clee an hee FG OF + ot Pm? | { 
1060 SGET (X2-Z), B(z) ie the - Sh 
1070 IF B(Z) = 88 a. nen + | : e Seuss 
1080 ELSE N(8+Z) = ie e234 ¢.. @F ee | 
1090 NEXT me 
1100 Y = O: 
41110 Y 
1120 N 
1130 I 
1140 N 
Z 
N 
ZS 


= N(O) 


nt 
KS 

4 + 
ae 


Lene eae. 
Y<7 THEN GOTO 1110 
INT (N1) 


noe Wt 


1150 

1160 N2 = NI 2A2* H(z) 

~1170 Z+ 1 

1180 IF Z<16 THEN N2 = N2 + 2 AD * (2) 3 s: GOTO: 1170 

1190 N2 = INT (N2) ~  - =. aa 

1200 IF N2>32767 THEN. N2 = ‘Ne- 65536 | a oe a 

1210 RETURN , oom ee 
END 


= 8 


> Se 
7 : H 
aS ee | * 
J 


Gary Alexander 
Bristol 


The hard/soft section this ‘he comes ‘from one of the prizewinners 
in our Games Competition. 

BELL MODIFICATION 

The following simple (and very cheap!) modification with a little 


software allows programs to produce sounds from the CORTEX speaker 
other than a simple ‘beep’. , 


IC 64 3 , | 
a i v _ 742500 Oo | ye F 
BELL 
1¢ 73, 
Figure A 


The circuit diagram, (fig.1), shows how the addition of two NAND 
gates on the spare CRU bit 7 (Q7, pin 12, IC64) can be used to switch 
the Bell line, (CRU bit 6), from ‘normal’ to ‘musical’ 2: ) ppeeatzons 


GAD 


TALS oo 


on TOP | meee ee 
dO FEF 


SOCKET 


Vec. 
Zea i, c 


BELOW 


Vee | ( PIN DG 
Figure 2 | _ a oe 2 


The easiest way to implement the mod is to mount the TALSOO. ‘on or of 
IC4 as shown in Fig.2. 


The following connections are required: . 


IC64, pin 12 to 74LSO0O, pins 1 & 2 
741800, pin 3 to 74LS00, pin 13° 


Remove pin 9 of IC4 from the socket nei: to effectively break the 
connection between it and the J-Q line of IC73. Then connect: 


74LSO0O, pin 11° to IC4, pin 9 
7T4LSO0, pin 12 to empty socket hole (pin 9, IC4 socket) 


The two power supply legs can be soldered to IC4. i.e: 


74LSO00, pin 7 to IC4, pin 7 (Ground) 
TALSOO, pin 14 to 104, pin i (Vec) 


— THE SOFTWARE | 
To drive the bell, CRU bit 6 is switched by a short Nesembler eoltiae. 
which can be called from BASIC. This allows parameters to be paaeee 
which ‘vary the ppeaueney. and duration of the sound e.g. 


CALL 06200H, p!.p2, p3 | 


where pi & p2 control the frequency, and p3 controls the duration. 


The BASIC routine below shows a simple example of the sound 
generation possibilities. While it may not compare with the 
_. gophistication of a sound generation chip, it does make a change from 
‘peep’ !! — 


If anyone knows of a solution to the siicking produced in the speaker 
I'd be glad to hear about it. : , ay | 


6200 ——s«LA._-«&R12,>0000 INITIALISE CRU BASE 


6204 MOV R2,R4 SAVE DURATION (P3) 
6206 MOV RO,R3 SAVE FREQUENCY (Pt) 
6208 SBO 6 BELL ON 

620A DEC R3 LOOP 

6200  #$=|JNE >6208 | Pisa, | 

620E — MOV R1,R3_ SAVE FREQUENCY (P2) 
6210 SBZ6 . BELL OFF 

6212 DEC R3 LOOP 

6214 INE >6210 

6216 DEC R4 DURATION LOOP 

6218  JNE >6206 . 

621A RTWP ots “BACK TO BASIC 


ASSEMBLER ROUTINE | 


100 CRB (7) = 1 

110 FOR J = 1 10 25 

120 FOR I = 25 T0 40 . 

130 CALL 06200H, 2*1,2*1,I/J 
140 NEXT I 

150 NEXT J - 

160 WAIT 20 

170 FORI=1 105 


480 CALL 06200H, 80, 80, 330. 


190 CALL 06200H, 220, 220, 110 
200 NEXT I a ee | | 
210 CRB (7) = O. ! SET BELL BACK TO NORMAL 


Mark Rudnicki 
Bognor Regis — 


There must be something in the sea air. Mark not only writes 
programs - he's one of our most prolific correspondents as well. 
. Here's a graphics technique that he uses in his games programs. 

. BETTER USE OF GRAPHICS MODE . 


The enclosed machine code sets up the graphics mode like the text 
mode so that the screen becomes addressable as 32x24 characters. 
Using this method, the full resolution of the 9929 can be eaprouets 
The program supports 4 calls: 


4) Initialise. Sets up the screen for use. 
CALL 6200H 


2) Initialise a character. 
CALL 6248H, Chr No.S1,582,53, S4, C1,602,C3; C4 


Chr No. = O to 255 a character number 


S1,S2,83,S4 16 bit values to define the shape (see nace: | 
command ) - 


C1,C02,C03,C4 16 bit values to define the colours 


White on black S1=71010,¢ CI=>FIFI, 
White on black | 

White on black S2=>92AA,¢ C2=>F141,¢ 
Blue on black - : | 
Blue on black S3=>AAFE, ¢ C3=>41 4146 
Blue on black | : 
Blue on black S4=>FEAA, ¢ C4=>41 7146 
Cyan on: black Sp as a 


3) Put a character 
Puts the character onto the screen: 


CALL 62A8H, Posn, chrl. (like sput) 
Posn = position 0-767 = 32xrow + column 
Chr = character as defined 


4) Get a character | 
Gets the character in a cell and stores the value 


Var = O: CALL 62COH, Posn, ADR (Var) | 
Posn = position, Var = variable Like SGET in text mode. 


‘Using these commands, very good screen displays can be built up. 
Note that plot-will not work, but the sprite commands will. This 
was how my program Burglar was done. 
Note that on initialistion, the screen locations are filled with 
the value 32 = a space in ascii. Redefining this character 
immediately changes all those characters on the screen. 


e.g- To flash the new screen red: 


5 GRAPH: CALL 6200H 
10 FOR I = 0 TO 20 
20 CALL 6248H,32,0,0,0,0,1616H,1616H,1616H,1616H ~~ 


30 WAIT 15 | 
40 CALL 6248H,32,0,0,0,0,1111H,1111H,1111H, ee 
50 WAIT 15 

60 NEXT I 


Note that all characters to be used within the game must be 
userdefined - this is a little tedious but worthwhile - see my 
programs "Burglar", "Invaders" and “Asteroids”. 


I will be pleased to reply to any points arising. 


INIT 


6200 
6204 
6208 
620A 
620E 
6210 
6214 


- 6218 


6210 
6215 
6220 
6222 


6228 


622C 


 622E 


6238" 


CHAR 


6272 


6230 


6234 


6236 


623A 
623E 
6240 
6244 
6246 


6248 
6240 
6245 
6252 
6256 


625A 


625C 
6260 
6262 


6266 
6268 


626C 
6268 


62°76 
6278 
627A 
627E 
6282 
6286 
6288 
6280 
628E 
6292 
6294 


~ 6298 


629A 
6295 
62A2 
62A4 
62A6 


LI RO, >0058 


MOVB RO,Q>F121 — 


SWPB RO 

MOVB RO&%>F121 
MOV *RO,*RO 

LI RO,>0300 © 
LI R1,>2020 
MOVB R1.,%>F120 
MOV *R1,*R1 


MOVB R10,%>F120 


SWPB R10 
MOV *RO,*RO 


MOVB R10,%>F120 


MOV *RO,*RO- 
RT 

SWPB RO 
MOVB RO,%>F121 
SWPB RO. 
MOVB RO,%>F121 


‘MOV*RO,*RO 


RT 


ANDI RO, 255 
SLA RO,3 
ORI RO,>4000 
LI R9,3 

BL %6238 © 
MOV R1,R10 
BL % 6228 © 
MOV R2,R10 
BL %6228 
MOV R3;R10 
BL %6228 _— 


, MOV R4,R10. 


BL %6228 
AI RO, >0800 


‘DEC RY 


JH >6256 
AT RO, >0800 
LI R9,3 


“BL %6238 


MOV R5,R10 
BL %6228 
MOV R6,R10 
BL %6228 
MOV R7,R10 
BL %>6228 
MOV R8,R10 
BL %>6228 
AI RO, >0800 
DEC Rg 

JH >6282 
RIWP 
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PUT 62A8 ATI RO,>1800 
62AC ORI RO, >4000 
62B0 BL %>6238 

62B4 SWPB RI 

62B6 NOV *RO,*RO 
62B8 MOVB LR1,%>F120 
62BC SWPB Rt 

62BE RTWP 


GET 62CO AI RO,>1800 
6204 BL 6238 
6208 INCT Rt 
62CA INC Ri 
62CC MOV R1,R1 
-62CE MOVB “F120, *R1 
62D2 RTWP 


To initialise: GRAPH: CALL 6200H 

To. initialise a character: CALL 6248H, N,o1, 52 993,94, C1, C2 »C3, C4 
To put a character: CALL 62A8H, Posn, Chr ~ 

To get a character: CALL 62COH, Posn, ADR (Var). 


Robert Lee 
Eastbourne 


More sea air - more useful tips. Thanks Robert. 


Brendan's bul letproof ram is great, providing you like taking the 
computer apart. For those of you not so keen, do not despair. 
Memory locations O6000H to O60EFH are also protected from system 
resets, although only 240 bytes, it is very useful. 


oe zor owInE is what I have found, so far: 


Operating system calls. Rev 1.1 

CALL 021CH Stops program, prints’ Ready". 

CALL O1F4H NEW (Clears User program). 

CALL O3EF2H RUN BASIC program 

CALL 01744H LOAD program from cassette 

CALL 01752H LOAD program, R8 points to 8 byte name. 


Useful memory locations. Rev 1.1 

OO1EH 16 Bit UNIT enable flags. 

551AH Contents are loaded into 9995 interval timer. 

5534H Colour attribute byte, default ATH. 

ED6AH Cursor ON/OFF flag, OOOO=ON. 

18B2H Cassette 9902 interval register contents. O4DOH= 300 
baud, O468H=600 baud, 043H=1200 baud. 

0084H UNIT 1 BLWP pointer 

OO86H UNIT 2 CRU base address (80), 1 signifies CRU. 

0088H UNIT 3 CRU base address (180) 

OO8AH UNIT 4 BLWP pointer 

OO8CH Next 12 words, undefined UNIT jumps. 
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Useful routines. Rev 1.1 

O114H LEVEL 1 Interrupt 

O278H LEVEL 2 Interrupt 

OOB6H LEVEL 3 Interrupt, timer and clock 
0602H LEVEL 4 Interrupt, I/0, keyboard, CRU. 
O785H Centronics printer routine. 


FOUR TIMES FASTER, SAVING AND LOADING WITH TWO RESISTORS 


To change the cassette SAVE and LOAD baud rates is an extremely 
Simple task. But in order that the system works, two modifications 
have to be made to the cassette port. 


1) To double the frequency of the oscillator TC72c.. This can be 
done by soldering a 100k resistor in parallel with R54 (100K). 


2) To speed up the monostable IC70, so that the timing is correct 
| ‘Yor the new frequencies. This can be done by Benen a 51K 
resistor in parallel with R44 (39K). 


At first, you may find it necessary to peuees a dual system with a 
double pole switch to switch the two resistors in and out of circuit. 
This enables old programs to be loaded, and then SAVED at 1200 baud 
after flicking the switch. 


To make the computer SAVE and LOAD at 1200 baud, memory location 
-018B2H must be changed from O4DOH (300 baud) to 0434H (1200 baud). 


The program shown below will do this automatically, and will print — 
the message ‘Loading’ when the computer has found the correct 
program. The program should be SAVED at 300 baud, but with the new 
system switched IN. The entry point when SAVING is O620AH. SAVING 
at 300 baud enables the computer to.LOAD the program and if the auto 
boot is used, to load. the following pPoeren ot 1200 baud. 4 times 
faster. 


All pofeneueed to component numbering, refer to the original overlay, 


as published by Electronics aad International. 


6200 060 BL %622C | sDATA 

6204 O6A0 BL %>6240 sDATA 

6208 0434 DATA >0434 sDATA Baud rate. 

620A C820 MOV %>6200,%>17EO sSet up pointers. 

6210 C820 MOV %>6202,%>17E2 . | 

6216 C820 MOV %>6204,%>16EA 5 

621C C820 MOV %>6206,%>16EC | 

6222 C820 MOV %>6208,%>18B2 a 

6228 0460 B %>624C ;Jump to end 

622C C3EO MOV %>EFBO,R15 sContinue with program 
6230 OFAO MSG %> 6256 ;Print message 'loading' 
62354 O45B RT ;Return from subroutine 
6236 OAOD DATA > OAOD ~sDATA ‘Loading' . 
6238 4C6F DATA >4C6F . | 

623A 6164 DATA >6164 ; 

623C 696E DATA >696E ; 

623E 6700 DATA >6700 . 7 

6240 O4CI CLR RI  sWait loop 

6242 0601 DEC Ri : 
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6244 16FE JNE >6242 

6246 CO60 MOV *>EFB6,R1 2 

624A O045B RT | ;Return from subroutine 
624C 0460 B %2021¢ = sReturn to BASIC 


we we 


For auto beating of the next. program on the dane , the following 
should be entered. 


624C 0208 LI RB, >6254 ‘ sSet up pointer to name 
6250 0460 B %>1752 sBranch to LOAD routine 
6254 $Name of next program, up to 8 characters. 


CENTRONICS PRINTER SPOOLER 


WARNING! BEFORE RUNNING THIS PROGRAM, AN AREA OF MEMORY MUST BE 
SAVED FOR THE SPOOLER BUFFER. THIS CAN ONL¥ BE DONE BY ENTERING NEW 
cla | : 


This program enables” the conpuen 15 use part of it's memory as a 
printer spooler, enabling high speed dumping of programs or text to 
the spooler buffer. “The printer would then print out the contents of 
the buffer at it's relatively slow speed, freeing the computer for 
other tasks. The spooler is transparent to the user and does not 
noticeably slow the computer down. 


The program is written in 3 sections, 


1) 06070H-O60A8H Sets up pointers so that the spooler program 
becomes active. The entry point for the program is O607CH and 
this should be used when the program is saved, with auto run 
set. _ 


2)  O6000H-06040H Passes characters from the CORTEX's printer 
| routine to the spooler routine, and checks for full buffer 
conditions i.e. printer pointer at bottom of buffer and computer 
pointer at top:of buffer, or computer pointer= ere pointer 
- 1, where era occurs in the buffer. 


3) Q6044H-O606AH Accessed by the level 3 interrupt of the CPU. 
This routine is called every 1/100th of a second by the 9995 
internal decrementer and is used to check for the buffer empty 
condition, printer pointer=computer pointer. The routine then 
checks the printer BUSY line and sends a character if this line 
is at logic '0'. Care must be taken not to over-write this 
section of code while the spooler program is active, otherwise 
the a will crash. 


The buffer length is 7823 characters (06071H-O7FFFH) and is set by 
the contents of memory locations 0606CH and O606EH. Once set up, 
memory locations 06071H-O60A8H are over written by the buffer. 


In use, the printer is accessed as normal with either UNIT 4 in BASIC 
or P9 in the Monitor. Now listings will not be delayed by the. 
printer speed (up to 7K of characters). Don't forget to disable the 
printer after you have finished (UNIT-4 or P 1). 


sibs: 


[ ]u 6000 6048 


6000 
6004 
6006 


600A 


600C 
600E 


6012 


6014 


6016 
6071 


—6-601C 


6015 
6020 


6022 
— 6024 


6026 
602A 


602C 


602E 
6030 
6034 


— 6038 
— 6035C 


6040 
6044 
6048 
604A 
6040 


~ 6050 


6052 
6054 
6058 
605A 
605C 
605E 
6062 
6064 
6066 
606A 
606C 
6065 
6070 
6072 


6074 
6078 


607C 
6080 
6086 
608C 
6092 
6098 
609E 
60A4 


0289 


CI R9,>0000 


1604 JNE >600E 


880A 
1601 
10F9 
880A 
1601 


C R10,%>606E 
JNE >600E 

JMP >6000 

C R10, %>606C 
JNE >6016 


O4CA CLR R10 


DAAO 


(R10) 


C20A 
0588 
8248 


15FE 


O58A 
880A 
1601 
O4CA 
0458 


D839 


O02K0 
O6A0 
0250 


0460. 
O2E0 


8289 
130D 


020C 


IFO9 
1509 
3229 
IDO8 
108 
0589 
8809 


1601: 


0409 
O02E0 
0380 
IF8F 
IF8E 
8289 


1B08 JH 


0460 
0460 
0300 
C820 
C820 


0820 
C820 


C820 
C820 
0300 


MOVB ©6070, to 


MOV R10,R8 


INC R8 

C R8,R9 

JEQ >6020 
INC R1i0—zj 
C R10,%>606C 


MOVB *R9+,%>6070 
LWPI >EEAO ~ 

BL %>6000 

LWPI >EE74 

B %>0758 
LWPI >EEAO 

C R9,R10 

JEQ >6066 

LI R12, >0800 

TB 9 

JEQ: >6066 

LDCR %>6071 (R9),9 
SBO 8 

SBZ 8 

INC R9 

C R9,%>606C 

INE >6066 

CLR RQ 

LWPI >ED14 — 

RTIWP 


TB -113 


TB -114 

C R9,R10 

>6084 

B %>6030 

B %>6044 

LIMI >0002 

MOV %>6070,%>0758 


MOV %>6072,%>075A ; 


MOV %>6074 ,%>075C 
MOV %>6076 ,%>075E 
MOV %>6078,%>010E 
MOV %>607A,%20110 
LIMI >OOOF 


;PRINTER SPOOLER 

sBY R.M. LEE 

sTest for printer pointer=0 

sIf not zero then skip next section 
sis computer at top of buffer 

sIf it isn't then goto next section 
sBuffer is full, wait for room 

sif buffer not full,test computer 
sat top of buffer,if not then 
continue 

selse reset computer LoPnten to 
bottom 


sMove character from temp store to 
buffer 

sTest for computer eointencorintes 
;pointer-1 | - 
sif true then wait for room 


: Increment computer pointer 

sIs computer pointer at top of buffer 
‘If not then return 

sIf it is then reset pointer 

sReturn from subroutine 

sMove character to temp store 


-. $Set up workspace pointer 


sCall spooler sub-routine 
sReturn workspace pointer 
sBranch back to printer routine 
sSet up workspace pointer | 
sTest for buffer empty 

sDo not print if true | 

Set up CRU base for printer 
‘Ils printer busy 

:Do not print if true . 

sMove character from buffer to 
sprinter and pulse strobe line 
9 

sincrement printer pointer — 
sls printer pointer at top of buffer-1 
sIf not then return 

sReset printer pointer 

sReturn workspace pointer 
;Return from interrupt 

sDATA, buffer length in bytes 
sDATA, buffer length-1in bytes 
sDATA,for set up of program 

i 

; 

9 

sEntry point for program setup 


we @28e we we we we we 
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60A8 0460 B ¥%>021C sReturn to BASIC 
[|P 1 *RO=PRINTER POINTER 
;R10=COMPUTER POINTER 


Richard Swingwood 
Colchester 


Here's some useful information that Richard has dug ‘out of his 
CORTEX. ; 
The COL function can be corrected with the following: 


MWD (1D12H) = OF120H 


The real-time clock executes at en ee eae gael of 
ED14H. Registers are used as follows::..- : a 


RO - 10ms count 
R1 - hours 

R2 - minutes 
R35 -=- seconds 


ry 
I 
i 


TIC count 


There is enough room at the end of this routine to patch in a branch 
to a user routine which will then be executed every 10 milliseconds - 


Put BL %> user-routine at address 010EH and terminate with a RTWP. 
Registers 6 through 10 are free for you to use. 


BASIC STATEMENTS - EXECUTION ADDRESSES 


STOP 1E20 SPUT 1 9FC 

GOTO - 24FC SGET 1992 

GOSUB 2500 | BOOT 321A 

ELSE 3FC2 SWAP 33548 

REM 3F36 MOTOR 186E 

FOR 2146 MAG 1 BFA . 
LET 2772 TOF 4IDE 

DATA 3F36 TON 3ID6 

NEXT 2240 POP 259C 

ERROR 1EA4 DIM 2032 

PRINT = 2ABB° - 5: >: ONe os") QOPAY 90 oo: 
CALL © © .-IFIB(*.° ..° - TPs 3) © 2BABS LS 2 
LOAD 173A DEF 200E * i. 
INPUT 262E NEW OICE 

READ 2CFA END 1E3A 
RESTOR 2D36 ¥ | 5h4OE 
RETURN 256C BIT ARG6A 

UNIT 3154 CRB IFA6 

TIME —313C CRF IF8C 

SAVE 1642 MEM 2908 

BASE 1¥F86 MWD 299E 
HSCAPE = “2156.2. 8 9 eo sey Page uae 
NOESC. :.. 213E | pipe ae, eeser rae ee 


RANDOM 2C9E 


BAUD 0164 
ENTER 20F6 
PLOT 5142 


UNPLOT 513 
COLOUR 1AD8 


PURGE 2BFC 
GRAPH 1A84 
TEXT 1A7E 
WAIT 1B58 
CHAR 1A88 
NUMBER  29CC_ 
LIST 3COA 
RENUM 2078 
SPRITE  1B9E 
SHAPE 1B6A 


BASIC FUNCTIONS - EXECUTION ADDRESSES 


ABS 2466 
ADR 29C8 
ASC 2936 
ATN 18B4. 
cos . 5346 
EXP 4A28 
FRA  —- 249A 
INT. 2440 
LOG . 5056 
KEY 2482 
SIN 535A _- 
SQR =- 536 
SYS 2410 
TIC 3128 
SGN 3038 
BIT 4E9E 
CRB 1 FEE 
CRF 1FC4 
MEM 2924 
MWD 29B8 
LEN 1F7C 
MCH 1F6E 
POS 1PAA 
COL : 1B14 
MOD 24C8 


An error in the graphics mode clear-screen routine causes the 
vertical position of the SPRITE O to be changed to O- This can be 
corrected with MWD (594H 25 FH. | : | 


=" 


Andy Kendall 
Bristol 


Andy's a ‘keen enthusiast who seems to have set up a little sub-group 
down in the West Country. This lower-case generation program can be 
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blown into your EPROMS if you get fed | up with loading it from tape. or 
disc. He and John Mackenzie have worked out a wrinkle that improves — 
string-handling when using CDOS and pay: © laine: to be -hot on the 
trail a egos subsititute! 


LIST 


10 REM Lower case generation program 

20 REM Written by A.J.Kendall 

30 REM Tel: 0272 744444 

- 40 DATA3, -28087 , 9088, 16647, 4681 , 9984, 3, -28607 ,896, 2083 , -28087 , ee 

50 DATA, 4721 ,896,4258,7712, ~32256, 35,4680, -8036, 16647, 4681 ,9344 — 

60 DATA 8194, 2080, -32256, 2048, -32248, 9356, 16677, 6241 ,17556,16644, 
4161 ,8960 

70 DATA 7, -27307,21824,7,4681 ,9344,3, 4681 ,8960,7, 4681 , +1 5544 - 

80 DATA 3,-28088,8061 ,7,4673,1024, 3, -28624, 9984, 16655,4161,8960 

90 DATA 4,-28087, 9088,8, -23983, 16896,10, reves -25296, '8,-27615, 
18560 

-  4100-DATA 4,-28088 ,-8036, Ty- 52207, ne? oe 

110 FOR CH=97 TO 122 
120 READ A,B,C 
130 CHAR CH,A,B,C 


140 NEXT CH 
150 CHAR 79, 29224 ,-23926, 9984 
160 TEXT 
oe 
Tim Gray 


West. Midlands 


Pin’ s been doing some interesting things with external video. He's 
also sent in about a pound and a half of listings. We've included a 
sprite movement noQuLene and his 3D graphics program - / keep ‘em coming 
Tim. - = 


Here is a program that allows automatic movonent of sprites without 
the need for complex for-next loops. | 


The main program resides in an area of memory from SEERA to 604E not 
normally used by the CORTEX software when in GRAPH mode, it is where 
text characters above 128 would be if they had been defined using ‘the 
CHAR statement. The variables are stored in an area of memory that 
will be overwritten if an error message is printed or if the text 
screen is scrolled but this should not be a problem as long as speeds 
are defined within a program after the GRAPH statement is used. 


TC 


CALL "SPEED", OS5FF6H,<sprite no.>,<X speed>,<¥ speed>, <auto stop> 


This section builds a table of X and Y speeds and auto stop for each 
sprite. | : 
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. ‘*} i 


_. -KXXX one word is. used for each parameter. 7 ; 
-YYYY and the table covers 5800 to.58CO (32 Santen: ; 
AS if auto stop is not zero the sprite will stop novinw anon it 


gets to an off screen location if it is zero the sprite will 

re-appear at the opposite end of the screen from where it left. 

X and Y speeds should be in the range -255 to +255 and zero for 
no movement. 


CALL " ANIMATE" , 06026H, <N> 
This section puts a patch into interrupt 4 vector to call the main 
routine ‘and enable VDP interrupte if N is 1 or disable eile if 


N is 0. - 


To use the ‘program first put all sprites to their viwetine: positions, 


then set their speeds using CALL "SPEED" then: enable one main program 


with CALL "ANIMATE". 


The main program uses the VDP interrupt to automatically update 
sprite positions at the end of every TV field and sets the early 
clock bit as required to enable sprites to bleed off the screen in 
any direction. 


The current positions of sprites can be found in a table from 5700 to 
5780 two word entries are used for each sprite the MSB of the first. 
word contains the Y position and the MSB of the second word contains 
the X position. 


The sprite speeds can be changed during an animated sequence but no 
attempt should be made to write anything to the VDP without first 
switching off the animation using CALL “ANIMATE” as the VDP may cause 
an interrupt during the operation and corrupt the VDP address setup. 


_ SPRITE SPEEDS 


5EEA 


DEERE 
5EFO 


DEF 2. 


SEPA 
SEF8 


_ SEFA 


SEFE 


—5FO2 
— 5FO6 
5SFOA 


5FOC 
SFOE 
5F10 
5F12 
5F1i4 
5F16 
5F18 
5F1A 
5FIE 


5F22 


5F24 
5F28 
5F2C 


5900 


O04CC 
1F06 
137A 
C020 
1375 
020A 
0208 


0209 
0289 
1B6C- JH 


C039 
C079 
C1B9 


C000 


1607 
C041 
1605 
022A 
0228 
10FI 
O6A0 
DOEO 
COC3 


WP 5REE PC 

CLR R12 

TB 6 

JEQ >5FE8 
MOV %>0026,RO © 
JEQ >5FE4 

LI R10,>5700 
LI R8,>1BO0 


LI R9,>5800 — 


C1 R9,>58C0 
>OFE4 
MOV *R9+,RO 
MOV *R9+,R1 
MOV *R9+,R6 
MOV RO,RO 

INE >5F24 

MOV R1,R1 

JNE >5F24 
AI R10, >0004 
AI R8,>0004 
JMP >5F06 

BL %05F2 
MOVB %>F120,R3 
MOV R3,R3 
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5F2E 
DBP52 
554 
5F38 
5F35A 
5F3E 
5F42 
5F44 
5F46 
5F48 
5F4C 
5F4E 
5F50 
5FD52 
5F56 
5F58 
5F5C 
5F5SE 
5F62 
5F64 
5F66 
5F68 
5F6A 
5F6C 
5F6E 
5FT2 
574 
5F76 
— «bFT8 


5FTC. 


5F7E 
5F82 
5F84 
5F88 
FSA 
5F8E 
5F92 
5F94 
5F96 
5F98 
5FIA 
5FIE 
5FAO 
SFA2 
5FA4 
5FA8 
SFAA 
SFAE 
5FBO 
5EB4 
5FB6 
5FBA 
5FBE 
5FC2 
5FC6 
5FCA 
5FCC 
5FDO 
5FD2 


D120 
C104 
DOAO 
C082 
D160 
9803 
1350 
D683 
A681 
981A 
13FC 
C186 


1308 


981A 
1405 
981A 
1B02 
O4E9 
O5CA 
D684 
C000 
1115 
A680 
1708 
E160 
OADA 
C186 
1323 
O4E9 
1020 
2160 
161D 
981A 
121A 
4160 
66A0 
1015 
A680 
Q11A 
1208 
4160 
O71A 
C186 
130D 
O4E9 
100A 
2160 
1307 
981A 
1BO4. 
£160 
AGAO 
0268 
O6A0 
0248 
O64A 
D83A 
058A 
D83A 


MOVB %>F120,R4 
MOV R4,R4 
MOVB %>F120,R2 
MOV R2,R2 

MOVB %>F120,R5 
CB R3,%>5FEA 
JEQ >5FE4 
MOVB R3,*R10 

A R1,*R10 

CB *R10,%>5FEA 
JEQ >5F46 

MOV R6,R6 

JEQ >5F62 

CB *R10,%>5FEC 
JL >5F62 

CB *R10,%>5FEE 
JH >5F62 


CLR %FFFC(RQ) 


INCT R10 

MOVB R4,*R10 . 
MOV RO,RO 
JLT >5F94 ~ 

A RO,*R10 

JNC >5F7E 

SOC %>5FFO,R5 
CLR *R10 

MOV R6,R6 

JEQ >5FBE 

CLR %>FFFA(R9 ) 
JMP >5FBE 

COC %>5FFO,R5 
JNE >5FBE 

CB *R10, %>5FF2 
JLE >5FBE 

SZC %>5FFO,R5 
S %>5SFF4,*R10— 
JMP >5FBE - 

A RO,*R10 

CB *R10,R4 

JLE >5FAA 

SZC %>5FFO,R5 
SETO *R10 

MOV R6,R6 

JEQ >5FBE 

CLR %>FFFA (R9) 
JMP >5FBE 

COC %>5FFO,R5 
JEQ >5FBE 

CB *R10,%>5FF2 
JH >5FBE 

SOC %>5FFO,R5 
A %>5FFR,*R10 
ORI R8,>4000 
BL %>05F2 

ANDI R8,>3FFF 
DECT R10 

MOVB *R10+,%>F120 
INC R10 

MOVB *R10+,%>F120 


2 1 


O58A 
D802 
C082 
D805 
1 09D 
D2K0 
0380 
DOOO 
C800 
8000 
1 FOO 
2000 
C140 
0245 


0204 


5944 


0226 
OA41 


CD81 

OA42 
CD82 
CD83 
C140 
0245 
0204 
5944 
0226 
O4F6 
O4D6 
0380 
0207 
C807 
C820 
0206 
C000 
13501 

£806 
1002 
4806 
O6A0 
B281 


OOOO: 


0380 


INC R10 

MOVB R2,%>F120 
MOV R2,R2 

MOVB R5,%>F120 
JMP >5FIE 

MOVB *>F121,R11 
RTWP 

MOVB RO,RO 

MOV RO,*%>D800 


.C RO,RO 


MOV RO,R5 
ANDI R5,>00IF 
LI R4,>0006 


MPY R4,R5 


AIT R6,>5800 

SLA R1,4 

MOV R1,*R6+ 

SLA. R2,4 

MOV R2,*R6+. 

MOV R3,*R6+ 

MOV RO,R5 

ANDI R5,>001F 

LI R4,>0004 

MPY R4,R5 

AI R6,>5700 

CLR *R6+ 

CLR *R6 

RIWP 

LI -R7, >5EEA 

MOV R7,t>EDAE 
MOV %>101A,%>604A 
LI R6,>2000 | 
MOV RO,RO 

JEQ >6042 

SOC R6,%>604A 

JMP >6046 

SZC R6,%>604A 

BL %05E0 | 
SOC R1,R10 
DATA >O000 
RIWP 


Mou KI) R= 


REM B¥EELHE HEELERS EES 


REM HHXETT GRAPH****** 
REM KEKKKHKHKKKKHKKKEHKE 
REM ** AN EXAMPLE OF 3D COMPUTING*** 
REM ** BY TIM GRAY iced 


GOTO 3000 

RESTOR 

10 TEXT : READ PN !number of points 

20 READ MAX !maximum value used" | 

30 MAX=ABS(MAX) !auto scaling of size 

40 DIM PT(PN,3), PTE(PN,2) 

50 FOR I=1 TO PN 

55 REM *** xX,Y,Z coordinates for all points 


CONNDUIHPWD — 
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70 READ XO: PT(I,1)=XO/MAX 

80 READ YO: PT(I,2)=YO/MAX 

90 READ ZO: PT(I,3)=ZO/MAX - 

110 NEXT I: PRINT "<OCc>"; - 

120 READ LN !No of lines to connect points | 

130 DIM LIN(LN, 2) | 

135 REM which points connected be each line 

140 FOR I=1 TO LN 

160 READ LIN(I,1) 

170 READ LIN(I,2) 

190 NEXT I 

200 RH=15: D=750: TH=4.7: PH=3.5: CX=126: cy= 96 

210 COLOUR 15,1: GRAPH 

250 S1=SIN(TH): C1=COS(TH): S2=SIN(PH): C2= =COS(PH) 

299 REM *** TRANSFORMATION *** 

300 FOR I =1 TO PN 

310 X=PT(I,1): Y=PT(I,2): Z= PT(I,3) 

320 XE=X*S1+Y*C1: YE=-X*C1*C2-Y*S1*C2+Z*S2: ZRAK*S2*C1 -Y"S2 
*3 1 -Z*C2+RH | 

330 SX=(D*XE/ZE)*0.7+CX: ‘sY= CY-D*YE/ZE 

340 IF SX <O OR SX>255 THEN SX=0. 

350 IF SY <O OR SY>192 THEN SY=0 

360 PTE(I,1)=SX: PTE(I,2)=SY' 

370 NEXT I 

399 REM **** PLOT LINES*#*#* 

400 PRINT "<oc>" 

405 FOR I=1 TO LN 

410 Xi=PTE(LIN(I,1),1) 

420 Y1=PTE(LIN(I,1),2) 

430 X2=PTR(LIN(I, ies 

440 Y2=PTE(LIN(I,2),2) 

450 IF X1=0 OR Y1=O OR X2=0 OR Y2=0 THEN GOTO. 470 

460 PLOT X1,Y1, TO X2,Y2 

470 NEXT I 

“499 REM *** READ KEYBOARD *** 

500 K=KEY(O) 

510 IF K=O4EH THEN RH=RH-1: GOTO 250 

520 IF K=046H THEN RH=RH+1: GOTO 250 

530 IF K=045H THEN D=D+50: GOTO 250 

540 IF K=052H THEN D=D-50: GOTO 250 

550 IF K=8 THEN TH=TH+0.1: GOTO 250 

560 IF K=9 THEN TH=TH-0.1: GOTO 250 

570 IF K=11 THEN PH=PH+0.1: GOTO 250 

580 IF K=10 THEN PH=PH-0.1: GOTO 250 

590 ELSE GOTO 500 

700 GOTO 250 


1999 REM ***py, MAX **# 

2000 DATA 40,2. 

2009 REM *** TOP CIRCLE *** 

2010 DATA 0,2y~251+4425~1 0hy2y240y1 odhy25104404252y—1 hy 2s 10h 242509 
1-4,2,-1-4 

2019 REM Hix 2nd CIRCLE *** 

2O20DATAO,0.5,-1. 2,0-85,0-5,- ce a a a 
-0.85,0.5,0.85 

2030 DATA -1.2,0. 5,0,-0.85, 0. 5,-0.85 

2039 REM *** 3rd CIRCLE *** 

2ZO4ODATA O,0,-0.7,0-.5,0,- -0.5,0-7,0,0,0-5,0,0+5,0,0,0-7,-0-5,0,0.5,- 
0.7,0,0,-0.5,0,-0.5 
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2049 REM *** Ath CIRCLE *** 


2O050DATAO,-1.-7,- 


2070 DATA, -2)-1+2,0+85 -2,-0-85,1+2,- 2 
0.85,-1.2,-2,0,-2,0.85,-2,0.85,0,-2, 


2080 
2089 
2090 
2099 
2100 


2109 
2110 


2120 
2129 
2150 
2140 
2149 
2150 
2160 
21770 
3000 
5010 
3020 
5030 
— 35040 
3050 
3060 
3070 


3080 


3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 


3170 


3180 
3190 
3200 


0440-3 4= 107, =0-3 500452127 50,0-3, 21 a, 0.3,0,-1 ‘Ty 


QO. 4,-0. 3a-1e Ts QO. y) 
2060 DATA -0.4,-1.7,0,-0.3,=1 i720: 4 
2069 REM *** 5th CIRCLE *** ~~ 


,0,0.85,0,- 2, ise 0: 85,-2, —— 
1.2,0.85, -2,0-85,-1- 2, 72; 0 


DATA -0.85,-2,-0.85 

REM HHE LN HEH 

DATA 72 | 

REM *** TOP SECTION *** . 
DATA 1,252555354,4,5,5,6,6,7,7,8,8,151,9, 2, 10, 3,11 4, 12, ere 
13,6, 14, 7,15,8, 16 

REM xe 2nd SECTION *** 

DATA 9,10,10,11,11,12,12,13,13,14,14,15,15,16, 16, 9, 9, 17, 10. 


18,11, 


19,12,20, 13, 21 914,22,15,23 


DATA 16, 24 

REM *** 3rd SECTION **# | a | 
DATA 17,18,18,19,19,20,20,21 ,21,22,22 123, 23, 24,24, 17 
DATA 17,25,18,26,19,27,20, 28,21,29,22 9305 23, D1, 24, 32 | 
REM *** BOT SECTION *** 

DATA 25,26,26,27,27, 28,28, 29,29, 30, 30,31, 31,32, 32,25 
DATA 25,33,26,34,27, 35,28, 56,29, 37, 30, 38, 31 » 39, 32,40 
DATA 33,34 534,355 4355 56556, 5757558, 28; 39159540, 40, oy) 
COLOUR 15,12: TEXT 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT " 
PRINT " 


PRINT 


PRINT " 
PRINT " 


PRINT 
INPUT 


"The object displayed can" 
“be moved in three" 
“dimensions by using the following" 


"CURSOR LEFT revolves object anticlock" 
“CURSOR RIGHT revolves object clockwise" 
"CURSOR UP revolves object away" | 
“CURSOR DOWN revolves object towards" 

"KE enlarges object” 

"R wreduces object" 

N brings object nearer" 
F moves object away" 


the difference between the last two" 
is the perspective" 


“PRESS RETURN " ;$INP 


IF $INP<>" " THEN GOTO 8 
GOTO 3180 


MD Rudnicki 
Bognor Regis — 


‘Enclosed is an article for the CORTEX Users Magazine. 


The program 


enables the use of the "MULTICOLOUR" mode on the video display 
processor which divides the screen into 64x24 block, each of which 
can be any of the 16 colours. 
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For a test program, the user could try the following: 


10 GRAPH: CALL 6200H, OC8H, I: CALL 62C8H 
20 FOR Y=0 TO 47° ee, eo ee eee 
30 FOR X=0. 10 63,. =. ee oe tee ates 

40: CALL 62A8H,X, a INT (anox 15. 99) i eae 
50 NEXT X 
60 NEXT Y 
70 GOTO 20 


Press "ESCAPE" to stop the program then either type | TEXT. <return> or 
GRA PH <return> to return to a standard eee | 


P.S. ETI are currently scrutinising my aun Gr apard which has 

been running faultlessly for some 2 months now. I've connected 2 

sound boards to it (14:with 2 x SN76489. 1 with.M112 (see Maplins 

catalogue), a 5 octave keyboard’and my PH master rhythm If nothing. 
is forthcoming, from ETI then I will be willing to make available some 
of this hardware for the User's SrOMD in some ‘Form: or, another. 


MACHINE CODE skies ‘od ita “oe 


10000 FOR I = 6200H TO 62DEH STEP 2 
10010 READ A 
10020 MWD (I) = 
10030 NEXT I : care = a.) 
10040 DATA 1728,-10240, 3807, -16368,¢ 609, 128; 1729, -10239 
10050 DATA -3807,-15279,896, 4096 , 608, 16384, 1728,-10240 
“40060 DATA -3807, 1728,-10240,-3807 ,-15344,1729, -10239 , -3808 . 
10070 DATA 1729,576,16383,1115,1728,-10240,-3807,1728 — 
10080 DATA -10240,-3807 ;-15344,-12192,-3808, 1729, 1115, 4096 
10090: DATA -16064,581,,1,-16192,2323,-16127,2556,2644 _— 
10100 DATA -15932, 2614 »2615.,-24125 ,-15999,582,7,-24122 
40110 DATA -16377, 1696, 25144,645,0,5386, 2626,577 
(10120 DATA 15,-24510,1696,25112, 896, 0,0,0 
ee DATA 577,240, -24510, 1969, 25112,896,0,0~ 
10140 DATA 1696,25112,896,0,641,15,5378,1120, 
10150 DATA 125168, 641 531 5380, 545, 64, 1120, 25168 
10160 DATA 545,128, 1120425168, 1218, -16382,544,6144 
10170 DATA -16318,577, 31,-16190, 2419, 2643, -24509, 1696 
10180 DATA £5122,1410,642,768,4592,896,0,0 


TO SET UP THE SCREEN, THE FOLLOWING NEEDS TO BE INCLUDED INTO THE 
PROGRAM: 


LINE NO XXX: GRAPH: CALL 6200H,0C8H,1: CALL 62C8H 
Thereafter, to set a pixel: 

CALL 62A8H,X,Y¥,C 

Where X=X co-ordinate (0-63) . 


Y=Y co-ordinate (0-47) 
C=Colour (0-15) 
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C C Kuan 


London 


I am so glad that I am not alone. fens Live the “CORTEX! 

Looking at all the other micros that have gone under despite awe 
finance and mass production facilities, it is wonderful to see that 
the CORTEX is now thriving into CORTEX II. 

Could be useful: 


1. 10 GRAPH 


20 T=TIc [oO] 

30 RANDOM en raypseréy] 
40 PLOT 256*RND, 192*RND 

50 GOTO: 40 


The nee generates a posure payreens not "completely random”. | 


i ee t have a green monitor. but no eeraauts sienal front: CORTEX 


(amplifier stage to boost modulator input doesn't work, as-in 
Jupiter Ace). Luckily I found this in Phillips P7001 green 
monitor's manual; it takes RGB or composite syne. 


come SYNC. 


Question: Who has tiie: Data Sheet for the Canon MD- 110 ssp disc 
drive, even Canon doesn't have it Bayne: 


26 


Andy Kendall 
Bristol 


Here's a couple of programs for the User Group. One is an adaption 
of a PC W listing and the other is an original, which I've found 
useful on several occasions. 


Here's something to ponder!, 
Type in: 


10 N=62.4 
20 PRINT N 
Then list it. Interesting eh? 


PRINT: UNIT 2 
LIST 


10 REM CHAR.DEF. PROG. 

20 REM A.J.KENDALL 22.2.84 = 3 

30 PRINT % "C": PRINT CHARACTER DEFINITION PROGRAM." 

40 PRINT : PRINT "Use the cursor contret oe to move the 

et to the desired point". 

50 PRINT "Press 'HOME' to fill or erase 'c]' out . 

55 ?:?: ? “Press the SPACE bar to end definition". 
60 ?: 2? : ? “Press the SPACE bar to continue” ; 

61 k=KEY[0]: IF K=32 THEN GOTO 70 

62 ELSE GOTO 61 7 ee ae “ow 

70 ¥F=0 oe 
72 CHAR 133,-488,24966,6271 ; 73 

73 CHAR 134,487,-24967,-6272 

80 CO=O0: C1=0: C2=0: C3=0 | 

85 REM SWITCH OFF CURSOR | : 

90 PRINT "<1D>"_ | - a ee. te ae % 
100 PRINT % "C": INPUT “Enter thechar. no. you wish to define-3;CO 
1410 REM ; : : 
120 CHAR 128, -ty-1, -1: TEXT - 

130 DIM ale, 10]: DIM B[8, to}. 

140 BLO,O| = 128 - 

150 FOR Y=1 TO 10 
160 FOR X=1 TO 8 
170 B=((X+15)+40*Y) 
180 A[X,Y] =B 

190 WEXT XxX 

200 NEXT Y 

210 FOR Y=1 TO 10 
220 FOR X=1 T0 8 
230 BLx,Y] = 32 
240 NEXT X 

250 NEXT Y ~ 

260 FOR X=1 TO 8: B 


[x,1] =128: NEXT X 
270 FOR X=1 TO 8: BI|X 

B 

B 


10] =128: NEXT X . 
»Y} =128: NEXT Y 
YJ =128: NEXT Y 


280 FOR Y=1 TO 10: 
290 FOR Y=1 TO 10: 
300 BL4,5] =133 
310 FOR Y=1 TO 10 
320 FOR X=1 TO 8 
330 sput alx,y|,Blx,yY| 


X, 
1 
8; 


2'] 


NEXT X 
NEXT Y 
IF F=0 THEN GOSUB 870 
F=1 

K=KEY [0] | 
W=V: Z=1 , 

IF K=8 THEN V=V-1: GOTO 470 
IF K=9 THEN V=V+1: GOTO 470 
IF K=10 THEN T=T+1: GOTO 480 
IF K=11 THEN T=T-1: GOTO 480 
IF K=30 THEN GOTO 540 

IF K=32 THEN GOTO 560 
GOTO 380 


IF V <2 OR V>7 THEN V=W: PRINT "<O7>": 


IF T <2 OR 

IF B [W,Z] =134 THEN B 0] = = 
IF B |W,Z] =133 THEN B 11,0 

IF B [V,T| =128 THEN B [0,0 

IF B [V,2 2 THEN B [0,0] =133 
B W2 = 8B fod 

B lv,T] = B [0,0 

W=V: Z=¥: GOTO 310 © , 

IF B Le =133 THEN B He = 
IF B |W,Z| =134 THEN B |W,Z 

FOR Y=9 TO 2 STEP =-1 

FOR X=7 TO 2 STEP -1. | 

IF A at =180 THEN CO =0.5 

IF A |X,Y| =298 THEN CO =0.5 

IF A |X,Y]| =382 THEN CO =0.5 

CO =CO + CO | 
IF .B |X,Y| =134 THEN GOTO 640 

IF B [X,Y] <> 128 THEN GOTO 670 
IF A |X,Y| < 181 THEN Ci =C1 + CO 
IF A [X,Y 

IF A [X,Y| > 298 THEN C3 =C3 + CO 
NEXT X -o s | 
NEXT Y 


IF Ci > 32768 THEN C1 =C1 - 65536 
IF C2 > 32768 THEN C2 =C2 - 65536 
IF C3 > 32768 THEN C3 =C3 - 65536 
PRINT % (0,13)" Char. no."; CO 


PRINT "Exp 1- "; C1 


PRINT "Exp 3- "3 C3 


PRINT :PRINT "Immediate effect?" 


K=KEY [0] 
IF K = 89 THEN GOTO 810 


IF K = 78 THEN GOTO 820 


GOTO 770 


CHAR CO,C1,C2,C3: TEXT: SPUT 460,CO 
PRINT: PRINT "Again?" 


K=kEY [0] 
IF K = 89 THEN GOTO 70 
REM SWITCH ONCURSOR IF 78. 


IF K = 78 THEN PRINT "Coo END» 


GOTO 830 — 
S45 io 

RETURN 

GOTO 670 


PRINT % "H": 
T>9 THEN T=Z: PRINT "<O7>": PRINT % "H": 


< 299 AND A [X,Y] > 180 THEN C2 =C2 + CO. 


) PRINT "DO YOU REQUIRE A HARDCOPY" 


REM CALENDERS PCW ocr 83 PG 285 


PRINT % "C" 
PRINT "CALENDER" ote eae ot © Se & Pe 
PRINT : A ae Se 


DIM $M [12, 2] 

FOR 1=4 10 12 
READ $M [1,0] 

NEXT I... ‘ 2, ute See Jey pier). Med gee Be a ee 
DATA "JANUARY", "FEBRUARY", "MARCH", "APRIL", "MAY", "JUNE",.. 
"JULY", "AUGUST" ,. "SEPTEMBER" er ee 
DATA "OCTOBER", "NOVEMBER", "DECEMBER". | z 
PRINT "TO PRINT A CALENDER OF ANY MONTH, ENTER THE MONTH AND 
YEAR REQUIRED" | 
PRINT : 
PRINT "IF THE WHOLEYEAR IS REQUIRED THEN ENTER MONTH On Gee 
PRINT eo es 
PRINT "TO END, ENTER MONTH 0, YEAR 0." Be, ORY. Yang Of 
UNIT -2: PRINT | | 2 
INPUT "MONTH NUMBER?” ;M 
PRINT | 

INPUT "YEAR NUMBER?" ;Y 
PRINT : 
P=0 

Z=0 
PRINT % "C" | ee ee 
PRINT: PRINT: PRINT: PRINT | sy 
IF M < 0 OR M > 12 OR Y <-25000 OR Y >20000 THEN coro 70 

IF M = O AND Y = O THEN END , | 


K=KEY [0]: IF K = 89 THEN P = 1: GOTO. 310. = 
IF K - 78 THEN P = 0: UNIT -2: GOTO 320 

GOTO 280  & ee. 

UNIT 2: PRINT | 

REM P IS THE PRINT FLAG 


IF M = O THEN Z = 1 | se - 7 ° 
REM Z = REPEAT FLAG TO PRINT WHOLE YEAR | : : 
IF M = O THEN M = 1 

Mi = M 

Yi =Y 

REM M1 AND Yi SAVE M AND Y ; 

I=yY , , -_ 

SA ‘= wheDe 

IF Y>=0 THEN GOTO 450..; 

$A = "B.C." 

1 = -1 

Y=Y+1 

REM 


REM NEW PAGE AFTER JUNE IF PRINTING YEAR 
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520M =M + 1 


530 


PRINT TAB (10); $M [M,O]; TAB (25); 15 $A 


.GOSUB 850 
ee | 


REM a 
PRINT TAB (10)3;"SUN MON TUES WED ‘TH FRI sant 


IF M > 12 THEN Y = 
IF M > 12 THEN M =1 


GOSUB 850 
N=J-1 | 

J = f, - Int [1/7] * 7 + 1 
IF J = 7 THEN J =0 
aaa os 

K=1 


IF Y <> 1752 OR M <> 10 THEN GOTO 670 
— TAB (J); "1 2" | 
K = 14 
J = 26 
= 40 


REM 1752 WAS A — FROM JULIAN T0 ) GREGORTAN CALENDER 


FOR I = K TON 
PRINT TAB (J-1)3. oo 
IF 1 <10 THEN PRINT 7 ae 


) PRINT 13 | 


J=z=J+4 

IF J > 36 THEN PRINT 
IF J > 36 THEN J = 10 
NEXT I 

PRINT : PRINT 

Y=YI 


770 M = Mt 


950 
960 


IF P =1 THEN GOTO 800 
WAIT 100 

IF Z = 1 THEN M 
IF M < 13 AND Z 
GOTO 160 
REM 

REM CALC ROUTINE | 
K = Y + 4712. mS | 

J = Int [K/4] + 365 * K- 

N.=°30.6 * M -32.3 

IF M > 2 THEN GOTO 910° | 
N=N+ 2.3 | a 
IF K --INT [K/4] *4=0 THEN J =J-1 


M+ 4 
1 THEN GOTO 340 


J= J+ Int [we]. 

IF J <=2361220 THEN RETURN 
K = Y - 300 

IF M <3 THEN K=K-14- 


N = Int [K/100] © 
J= J- Int [0.75 * nu] - 1 


970 RETURN 


Also find enclosed the same wrinkle applied to relative files. It 
does not allow you to put the $ sign back on but does allow you to 
save strings of unlimited length, whereas before you could only 
save a maximum string length of 22 characters (as discovered ‘by | 
- John Mackenzie). 7 : | 
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33; UNIT -2 
LIST 10 TO 80 


10 DIM $8[10,2], $ F [10,4], $a1 [10,4], $a2 [10,3], $a3 [10,3], 
$a4 [10, 21, $7 [10,2], $p1 [10], $p2 Lio], $p3 Mo] 
20 V= 0: G@= 0: R= 1: W= 1: J = 0: 
30 ERROR 60 
40 OPEN 1, "CADATA2" Ry CRE 
50 GET R, V, S Lp,0], F La 0], ai [g,o], a2 [J,o], a3 [4,0], Ad 
[3,0], @ T3 oO], D1 [J , D2 [a], D3 [J 
60 POP 
70 CLOSE R 
80 PRINT % "c" 


LIST 530 TO 620_ 


530 OPEN 1, "CADATA2", R 

540 ERROR 580 

550 J=O | 

560 ai R, V, $8 +i! ,o], sF [g,0], gai [3,0], ga2 E30], $45 
7 | 


Ad [5,0], $7 1g. ol, $D1 Trl, $D2 sl, $D3 
570 ron 560 
580 POP 
590 FOR J = 1:10 B 
600 PUT R, V, $S[J,0], $F fas o], $a1 [g,0], $a2 [7,0], $A3 5, of 
$A4 [J, ol, $T fs; 0], $D1 scar $2 [3], $p3 [J] 
610 NEXT J 


620 CLOSE R 
PRINT: UNIT -2 
LIST Relative File Example 


10 prim $a [9], $B L9] 

15 ERROR 35 

20 OPEN O, "PTTT", R, CRE, 70 
30 GET R, 1, B LO] - 
35 POP 

40 CLOSE R 

110 INPUT "ENTER $A"; $A [0] 
210 OPEN O, "TTTT", R 

310 PUT R, 1, A [ol 
410 CLOSE R 

510 OPEN 0, "TTTT", R 
610 GET R, 1, B [oO] 
710 PRINT $B [0] 

810 CLOSE R 

910 END 
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oat; if not ‘all electronics athe 
See siasts will have heard of Power- 
WHtran Cybernetics (previously 
Powertran Electronics). Over the past 


few years they have produced many . 


high-quality kits. = 

- In 1982 Powertran released the Cor- 
| ‘tex, a low cost 16-bit micro with a real 
stingin the tail. On specifications alone, 
| the system is up there with the best. 
Based on the ‘Texas 9995 micro- 
processor, running at an astonishing 


| 12MHz, the . Cortex: out-benchmarks | 


almost all the popular microcomputers. 
| Other features include 64K of RAM, 
high-resolution colour’ graphics with 
| sprites, a floppy disk interface, serial 


| and parallel ports, and ari expansion bus 


| known as the Ebus. 


A few months back the Cortex was | : 
withdrawn for a refit, now the system is 
sold with a new smarter, slimline look 


; and has been christened the Cortex 2.. 


P| ARDWARE: CORTEX 2 


—Buy the Cortex 2 in kit-form or 


| 
ved 7 BPA See at 
Ss g 5, ‘ i | re . s 
- ready-built and you’ve got a micrggyasws 
: a : — fo. ae: 
sty fe 
aes. 
| 
ra Ey 


with great specifications, sa 


- Forthose of you adept witha Boldering { 


iron, ‘good eyesight and a great — 

deal of patience, the system. 

| comes as a kit. For those more 

_ prone to melt the table top rather 

| than the. solder, a ready-built and~ 
‘tested version is also available. 


_ -First impressions 


| ‘The nenenee made to Cortex 1 to. 
| produce Cortex 2 are apparent as 
soon as you set eyes on the machine. 
The new model has a slimline look 
| solely due to the removal of the full: 
| height floppy disk drives. The new 
| model has half height drives in a 
| separate cabinet which sits on top of 
the main unit. These drives are 
| connected to the computer via two 
leads. The first is the low voltage power 


lead which plugs in at the back, the HNas 
second is the 34-way ribbon cable which. ee 


plugs in the side. 


The cabinet is made of sheet metal, 


sprayed in light grey. The metal adds to 
the weight but still leaves it lighter than 
| some so-called portables. The one thing 
to be said for metal cases is the added 
fee it te 


Hardware 


Towards the front of the machine are 
situated the keyboard, anumber of LED 


| indicators and two push button switch- — 


es. The LEDs are marked; RUN, IDLE, 


_| MAP, and TIME and are ‘dealt with i in 


the Tn use’ section as are the two 


| switches marked RESET | and RE-. 


START. 

The keyboard itself is of a simple. 
construction with the minimum of frills. 
The main section contains all the 


standard alphanumerickeys, 55 in total. 


There is also a nine-key keypad contain- 
ing cursor keys and various editing keys 
| which are used by the Basic line editor. 
Various connectors are apparent 
| around the outside of the case but, 


| unfortunately, there are no markings on 


the case itself to describe their function. 
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‘Working frank the circuit diagrams 
and the PCB overlay. diagrams, the 
following should be correct descriptions. 
On the right-hand side front are located 


the two connectors which make up the 


serial system. A 5-pin DIN socket is used 
to communicate with the cassette recor- 
der (Powertran recommend a WHSmith 
model). : 

A 25-way ‘D type connector i is used to 
interface the unit with any standard 
RS232 serial device. A 34-pin IDC 


‘conncetor is used to connect the new disk 


unit. This connector should really be on 
the rear of the system with the power 
supply connector and not in its current 
position on the right-hand side. Power- 
tran supplies two types of disk unit for 
the Cortex with 125K or 1Mb unformat- 
ted capacities offered on single sided 
single density or double sided double 
density drives respectively. 

At the rear of the unit are located the 
video outputs for both the UHF (a TV 
set) and RGB (optional extra) displays, 
in addition to the disk power supply 


- connector. | 


The only other connector is the‘D’ 


- type for the Ebus and is situated 


this time on the left of the machine. 
4 This allows the machine to com- 
municate with standard Eurobus 
expansion boards. On previous 
versions of the Cortex, the Ebus 
was not available due to design 
problems but I am assured that 
this one works properly. 


Documentation 


These manuals are certainly not of the 
highest standard but they are readable 


and that’s what counts. Three manuals | 


make up the system documentation: a 
user manual, the disk operating system 
manual, and a construction manual if 
you're buying in kit-form. The user 
manual is written on the assumption 
that you actually built the system. No 
mention is made of the connectors or 
indicators which is a shame because 
some people will buy the ready-built 
version and will not be familiar with the 
system. What it does have is an in-depth 
description of Cortex Basic. 

The construction manual is a photo- 
copy of the original article which 
appeared in Electronics Today Interna- 
tional as appears to be the norm with 
Powertran kits. This is quite adequate 
as it not only deals with descriptions and 


construction but also hasan item on ‘how | 


it works’ for each section of the project. 


Construction 


There is no reason why a system built 
from a kit should look any different from 
a professionally built machine. All 
components supplied to make up the 
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if you buy the Cortex 2 in kit-form, you will have to turn the resistors, capacitors 


5 irs Ee Peed tary 
apa aet: Ween et 


and chips 


these is the ability to use a soldering 


Cortex-are of a high standard and if | 
iron; though identifying and handling of 


constructed properly give the desired 
high-quality appearance. . 
But taking on the task of actually 
building a kit that’s as complex as the 
Cortex involves certain skills not nor- . 
mally associated with the average com- | 
ertenn aes 


puter end user. The most important of 
CNSR line EES Aza 
eee es {o) ube: 
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factor, almost as important as the 
soldering skills, is patience. Don’texpect 


session; it is possible but not recom- 
mended. Asimplerule ofthumbto follow 
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(above), into the machine on the left (inset). | 


‘components is also important. Another - 


to sit down and build the system in one 


". 
eon >." 
eat aD 
Cathie * 


2 “igs . 
ore Ran 
ve 


is that the more time you spend on 
building the system, the more likely you 
are to have a finished product that 
works. | | 
One of the first things you notice when 
looking at the Cortex PCB is that all the 
integrated circuits are socketed. There 
are two schools of thought on this subject 
(ignoring the obvious increase in cost) 
for it can be argued that sockets don’t 
provide a good electrical contact for long 
periods. This is true, but in this case, 


| matters such as ease of construction, 


repair and modification of the board far 
outweigh the disadvantage of having to 
re-seat a chip occasionally. 

While building a project froma kit, it’s 
surprising how much one learns about 
that project. This knowledge then builds 
confidence to take-on the task of taking 
on a hardware modification. A socket 
system gives such an option and is a 
facility rarely available to the average 
user. : 

The construction of the review system 
wasexcellent except for onesmall detail. 


Whoever built this system broke one 


basicrule ofassembly, ietomakesureall 
cables which connect between the main 
unit and the lid of the system are long 
enough for the lid to be removed and 
placed to one side. Of course the system 
must still be able to operate with the lid 
removed. In this case, only the LEDs, 
reset buttons and two power supply 
regulators are mounted on the lid and it 
was the cables running to the LEDs that 
was cut too short. | 


Processors 


The system itself is based on the Texas | 29} 
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<q 27 Instruments TMS9995, probably an 


unfamiliar microprocessor to most us- 
ers. It was in fact one of the first true 
16-bit microprocessors. It has one main 
drawback which is a limited memory 


addressing range. It can only address — 


32Kwords (16-bit) which is the equiva- 
lent of 64K bytes. These days, thisseems 
a very small amount when compared 
with the 8086 (IMb) and the 68000 
(16Mb) though it is still the same as s the 
Z80 and the 6502. 


It does on the other hand, have a very 7 


high clock speed of 12MHz which is 
faster than all these processors (stan- 
dard models only) which leads to a very 
fast machine. 
Video on the Cortex i is handled by the 
TMS9928 video processor. This chip has 
its own 16K of memory lead- 
ing to a graphics resolution of 
256x192 with 16 colours on 
the screen at one time. - | 
Also implemented on the 
9928 is a sprite capability 
with up to 256 being allowed. 
These sprites can be defined 
as an 8x8 or 16x16: (64 
sprites only) pixel grid. An 
option to magnify these is also 
available. The command 
MAG®@ maps each sprite pixel 
to one pixel on the screen, 
while the command MaG1 
maps each sprite pixel on toa 
2x2 grid on the screen thus 
allowing a single sprite to fill a 32x32 
| grid on the screen. As is usual with 
sprites, software is available to check for 


collision between sprites while hard- » 
-ware within the video processor takes — 


care of which sprite is ‘in front’ of any 
other when displayed. 
One very interesting feature of the 


graphics processor is that one colour is - 


defined, not as a colour, but as transpa- 
rent. This allows the background colour 
to.be seen ‘through’ the sprite. 

_ The idea of one image being in front of 
another is possible because of the way in 
which the 9928 implements its graphics. 


[ None of the sockets j is labelled. 
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PLANES 


Thescreen can be thought ofas36 planes 
ontop ofeach other—rather like placing 
36 photographic slides on top of each 


other and looking through them. Thus a 


sprite placed on plane 8 would cover an 
image of a sprite on plane 9. 


‘One of the 36 planes is set ‘aside fora an 
external video expansion board. This | 


board mixes a video: signal from, for 
example, a video recorder with that of 


the computer. Thus it is possible, albeit 


difficult, to do things such as make a car 
ina video game hit a real wall. 


Because the graphics memory is. 


separate from the user memory the 


PRIORITIZED DISPLAY 


- This is how the sprite planes are organised. The 
external video plane allows you to put in a video 


of ‘memory is set aside for memory 


Basic comes:as standard on the system 


system monitor. All firmware is held in 


‘The cassette and RS232 interfaces and the expansion bus are on the side. 


EXTERNAL” 


| VIDEO. 
_/ | BACKDROP 
" / PATTERNS , 


7 CHARACTER ORIENTED) 


‘s 


backdrop. 


system still sovdesil the full 64K bytes 
for use. Well, nearly all, as a small area 


mapped I/O allocation. 
_ Firmware 


and is stored in ROM along with the 


3x8K EPROMs which, again, are not 
part of the main memory map. Instead, 
these EPROMs are known as phantom 
memory. 

When the system is first powered up, 
the dynamic RAMs are checked for 
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..., _.| anew disk operating system. : 
‘Microprocessor Engineering (0703- : 


| le packages which run on the Cortex. 
“| MDEX isa disk operating system witha 
disk-based version of Basic which is — 


| that they will run about every three 
| months, 


of the EPROMs are copied into RAM. 


‘This allows far greater system flexibil- 
_| ity because Basic can be overwritten if 


the system is running 9995 machine 


| code only. 


Though Basic is the language fitted 


| with all new systems, it is possible to 
| change the language simply by replac- 
| ing the EPROMs. Two other languages 
| are presently available for the Cortex. 
'| The first is fig-Forth (available from 


-Lombard Systems of Bedford). The 


| language comes on two 8K EPROMs, 


which replace the first two Basic ROMs. 


_| To enhance the Forth package, a utili-. 
ties disk is also available containing an 


editor and various I/O utilities. 

For those who don’t wish to replace the 
Basic ROMs permanently, Forth is also 
available on an autorun disk with all the 
utilities included. With this version, the 
Basic ‘boot’ command is used to load 
Forth on top of the Basic interpreter. 
UCSD Pascal P-code system 1s also 
available. This includes the operating 
system, full screen editor, assembler, 


compiler and debugger. Further exten- 
_ | sions allow multi-tasking and support 

for extended addressing via the Ebus - 
| which will allow a full megabyte of 


memory to be accessed. All very nice, I 
hear you P-code followers thinking. 
True, except that it weighs.in at £535. 


With the standard Cortex kit at £300, it | 


does seem a bit excessive. 


_ Software 


~ Anumber oft companies are now offering 7 
software which will run on the Cortex, : 
and Powertran itself has commissioned . 


an independent software house to write 


‘ 175482) offers a number of software 


similar to Microsoft Basic. EDIT is an 


editor based upon a number of main- — 


frame-based editors including SOS. 
RESCUE is a set of three programs for 
processor, memory and disk diagnostics. 
It also includes a disk editor/ recovery 
program. SPL is a systems program- 
ming language similar to ‘C’ for which a 
ROM-based nucleus is being developed. 
- This is by no means a full list and 


needless to say, a number of games are 
also available. No doubt, more will be. 


made available after the competition 
that Powertran ran in its August 
newsletter. Though this was the first 
Cortex user group newsletter it seems 


as the next was due in 
December. 


- Topicsincludeall the latest updates in. 


both hardware and software, plus hints 
and tips from present Cortex owners. 
Well done, Powertran—I’mallin favour 


| of companies that keep close ties with 


their user groups. 
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The dual disk drive is designed to sit Seatly o on n top of the machine. 


In use 


There should be few problems with using 
Cortex Basic For the first time user. But 
those familiar with standard Microsoft 
Basic may takea littletime to get used to 


orientated editor which is initiated 
whenever a syntax error is encountered. 
Being brought up on a version of Basic 


totally devoid of editing facilities, I 
normally retype the whole line auto- 
‘matically so using this type of editor is 
quite a luxury. 


The Basic itself is excellent allowing 


‘auto line numbering, renumbering, 
| definition of sprites and allowing 16 
‘parameters to be passed to a machine 
‘code routine, to name but a few of its. 
many facilities. | 
| On the system disk supplied by. 
i Powertran were three simple demo } 
‘programs, all using sprites. The sprite |.f 
-moving sections of the demos were 


smooth and fast considering that they 


- were in Basic, obviously another pointer | 
‘to the overall speed of the system.. 


When coming out of a program I 
noticed that the text on the screen was 
different to that displayed when I loaded 
it. This is because the Cortex works in 
two distinct modes, text and graphics. 
When intextthenormal 24 x 40display 
is used, but when in graphics mode the 
characters are actually plotted onto the 
screen, thus allowing only 24 x 32 
characters on the screen. Typing the 
command ‘text’ is all that’s required to 
swap back to text mode. 

Though the system itself is fast, the 


disk drives themselves are quite slow. |. 
: Together with this, the disk operating. 
system is cumbersome and long-winded .} 
to use. I-won't delve any deeper into the | 


Specifications 


*s ae, cor ee oats 


‘Processor TMS9995 12MHz . 
ROM 24K for Basic and Monitor . 
RAM =: 64K plus 16K for graphics 


: ‘Screen 24 x 40 text, 256 x 192. graphics . 
"Keyboard 64 keys including 1 nine key keypad =... 
"Interfaces RGB, Centronics, Ebus, Floppy disks ene 
a — Pec en OR64-C4455... 


it. Contained within the Basic is a line 


workings of this particular DOS as itis 
inthe process of being replaced. _ 
. As mentioned previously, there are a 
number of LED indicators on the top of 


the case. The first two show how much of 


the time the system is actually running 
code and how long it is sitting idle. The 
MAP LED shows when memory mapped 
VO is taking place. The final one, 
marked TIME, flashes continually and I 
could find no details about it. None were 
given in the construction manual so | 
assume this was not available on the 
Cortex 1. 


Verdict 


Building from a kit, in this case, offers a 
cheap way to obtain a powerful and 
versatile micro, but it must be said that 


it is not just putting pieces together 


jig-saw fashion. 
Buying the Cortex 2, in whatever 
orm, must be looked on as something of 
a challenge. The reason for this is that a 
lot of software development has to be 
done by the user because it cannot be 


| bought off the shelf. Incompatibity i isthe 


main cause. Though there are a small 
number of other 9900 series machineson 


the market, eachisa small fishin a large 


ocean compared with the likes of Com- 
modore, Acorn and Sinclair. So don’t 
expect a new game or package to appear 
every week, because it won’t. Software is 
being written, but notin vast quantities. 
Though the Cortex is primarily a 
homecomputer, there is no reason whyit 
should not become a smal] business 
micro if relevant software were to 
become available. 

The disk capacity is large enough, thie 


“speed is more than ample, and printer 


ports and high-resolution graphics are ° 
also included. A 


Basic kit £299, built £399, £1, 195 with all the options : + a 
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